home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / scratch.c64 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  257b  |  15 lines

  1. 10 PRINT"[147]"
  2. 20 PRINT:PRINT"WOULD YOU LIKE TO SCRATCH A FILE (Y/N)?"
  3. 30 GET A$
  4. 40 IF A$="Y" THEN 80
  5. 50 IF A$<>"N" THEN 30
  6. 60 PRINT:PRINT"BYE."
  7. 70 END
  8. 80 INPUT"FILE TO BE SCRATCHED";F$
  9. 90 OPEN 15,8,15
  10. 100 PRINT#15,"S0:";F$
  11. 110 INPUT#15,E,E$,F
  12. 120 CLOSE 15
  13. 130 PRINT:PRINT F;E$
  14. 140 GOTO 20
  15.